home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
progs
/
utility
/
opaquemove
/
remove
/
remove-opaquemove
< prev
Wrap
Text File
|
1996-10-03
|
3KB
|
101 lines
;;----------------------------------------------------------------------------
;;
;; Remove-OpaqueMove - OpaqueMove removal script for Installer
;;
;; Copyright © 1996 Steve Koren, All Right reserved.
;;
;; Use following Icon tooltypes / Command line options:
;; APPNAME=OpaqueMove
;; MINUSER=AVERAGE
;;----------------------------------------------------------------------------
(complete 0)
(set locale 0)
(set #welcome (cat "Welcome to the " @app-name " removal process."))
(set #removing (cat "Removing " @app-name " files..."))
(set #notfound (cat "Unable to find install directory."))
(set #userstop (cat "User stopped removal."))
(set #danger (cat "WARNING: This process will remove " @app-name
" from your system. Do you wish to proceed?\n\n"
"NOTE: If you have OpaqueMove drawers open in "
"workbench or otherwise locked, this script "
"will not be able to remove them."))
(set #delwbs (cat "Deleting OpaqueMove.info from WBStartup."))
(set #delenv (cat "Deleting OpaqueMove from env: and envarc:"))
(set #deldir (cat "Deleting %s directory."))
(set #delenvprompt (cat "Do you wish to delete the ENVARC:OpaqueMove "
"directory? NOTE: If you have not backed up "
"your keyfile and preferences settings, you "
"will lose them permanently if you proceed!!"))
;=============================================================================
; Removal procedure
;=============================================================================
; -- check for existance of MUI: ---------------------------------------------
(welcome #welcome)
; -- select our install dir --------------------------------------------------
(set LastDir "")
(set OM-Dir "")
(if (exists "ENV:OpaqueMove/OM-Dir")
((set LastDir (getenv "OpaqueMove/OM-Dir"))
(if (not (exists (tackon LastDir "OpaqueMove/OpaqueMove")))
(set LastDir ""))))
(complete 10)
(set Reuse 0)
(if (= LastDir "") (abort #notfound))
(set OM-Dir (tackon LastDir "OpaqueMove"))
(if (not (exists (tackon OM-Dir "OpaqueMove")))
(abort #notfound))
; -- ask user whether to stop ------------------------------------------------
(complete 20)
(if (not (askbool (prompt #danger)
(help @askbool-help)
(default 1)))
(abort #userstop))
; -- really remove stuff -----------------------------------------------------
(set @execute-dir "ram:")
(run (prompt #delwbs)
(help @run-help)
(confirm)
"c:delete" ">nil:" "SYS:WBStartup/OpaqueMove#?")
(run (prompt (#deldir OM-Dir))
(help @run-help)
(confirm)
"c:delete" ">nil:" OM-Dir (cat OM-Dir ".info") "ALL")
(complete 80)
(if (not (askbool (prompt #delenvprompt)
(help @askbool-help)
(default 1)))
(abort #userstop))
(run (prompt #delenv)
(help @run-help)
(confirm)
"c:delete" ">nil:" "ENV:OpaqueMove" "ENVARC:OpaqueMove" "ALL")
(complete 100)
(exit)